home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Zoom 2
/
Zoom - Release 2 (1996)(Active Software)[!].iso
/
graphics
/
icon_related
/
newiconsv2
/
install
/
update_newicons_fra
< prev
next >
Wrap
Text File
|
1996-02-20
|
4KB
|
182 lines
; NewIcons Installer Script
; $Ver: 38.3 (8-Jan-95)
; Written by Philip A. Vedovatti
; for Program Author Nicola Salmoria,
; with many thanks for his fine programming work.
; Traduction française par Eric Sauvageau.
(set @default-dest "SYS:C")
(set #bad-kick
(cat "\n\nDésolé! Vous devez utiliser le Workbench 2.0"
"ou mieux pour utiliser ce logiciel."))
(set #hello-message
(cat "\n\nBIENVENUE UTILISATEUR DE NEWICONS!"
"\n\n Si vous n'avez pas une version précédante de"
"\nNewIcons ET Deficons d'installée, avortez ce script"
"\net exécutez plutôt le script Install_NewIcons."
"\n\nCette installation sert à mettre à jour les "
"\nlogiciels associés à NewIcons/Deficons."
"\n\nSI VOUS AVEZ ACTUELLEMENT NEWICONS ET DEFICONS"
"\nD'INSTALLE SUR VOTRE SYSTEME, VOUS POUVEZ PROCEDER."))
(set #install-which
(cat "\nQuelle(s) partie(s) du système NewIcons"
"\ndésirez-vous mettre à jour?\n"))
(set #install-library
(cat "\n\nCopie de la newicon.library dans LIBS:."))
(set #install-library-help
(cat "\n\n Cette librairie est nécessaire à la fois pour"
"\nutiliser NewIcons."))
(set #install-newicons
(cat "\n\nCopie des exécutables dans le répertoire C:"))
(set #install-newicons-help
(cat "\n\nCette étape installe NewIcons, Injectbrush"
"\net PatchOpenWB dans le répertoire C:."))
(set #tools-dest
(cat "\nDans quel répertoire désirez-vous installer les"
"\noutils servant à manipuler les NewIcons?\n"))
(set #install-deficons
(cat "\n\nInstallation du serveur DefIcons dans le"
"\nrépertoire C:, et copie des icônes génériques"
"\ndans le répertoire Envarc:sys/."))
(set #install-deficons-help
(cat "\nCette étape installe le logiciel Deficons"
"\net copie les fichiers 'def_icons' dans le"
"\nrépertoire ENVARC:sys/."))
(set #exit-message
(cat "Veuillez redémarrez votre système afin d'activier"
"\nles nouvelles versions des systèmes NewIcons/Deficons."
"\n\n\nEn espérant que vous appréciez cette mise à jour!"))
(set #docs-dest
(cat "Où désirez-vous installer la documentation"
"\nAmigaGuide de NewIcons?"))
; ------------------------------
; Check Kickstart Version
; ------------------------------
(if (< (getversion "LIBS:version.library") (* 37 65536))
(abort #bad-kick)
)
(message #hello-message)
; ------------------------------
; Install NewIcon.library
; ------------------------------
(copylib
(source "/libs/newicon.library")
(dest "libs:")
(prompt #install-library)
(help #install-library-help)
(confirm)
)
;-------------------------------------------------------
;Install icon images, NewIcons, and icon support files
;-------------------------------------------------------
(copylib
(prompt #install-newicons)
(source "/C/NewIcons")
(dest "c:")
(help #install-newicons-help)
)
(copylib
(source "/C/InjectBrush")
(dest "c:")
)
(copylib
(source "/C/PatchOpenWB")
(dest "c:")
)
(set destdir
(askdir
(prompt #tools-dest)
(help @askdir-help)
(default "Sys:Utilities")
)
)
(copyfiles
(source "/Utilities/CopyNewIcon")
(dest destdir)
(infos)
)
(copyfiles
(source "/Utilities/CreateDefaultIcon")
(dest destdir)
(infos)
)
(copyfiles
(source "/Utilities/KillNewIcon")
(dest destdir)
(infos)
)
;------------------------------
;Install Deficons
;------------------------------
(copylib
(prompt #install-deficons)
(source "/C/DefIcons")
(dest "C:")
(help #install-deficons-help)
(confirm)
)
(copyfiles
(source "/envarc/deficons.prefs")
(dest "ENVARC:")
)
;------------------------------
;Install Documentation
;------------------------------
((set destdir
(askdir
(prompt #docs-dest)
(help @askdir-help)
(default "Help:")
)
)
(copyfiles
(source "/NewIcons.guide")
(dest destdir)
(infos)
)
)
(exit #exit-message)